home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 57
/
64er_Magazin_Sonderheft_57_19xx_Markt__Technik_de_Side_A.d64
/
save_load demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
896b
|
42 lines
10 rem demoprogramm zu save/load dim
20 rem nikolaus heusler, 010790
30 :
40 ifa=0thena=1:load"save/load dim",8,8
50 poke0,111:poke56,159:clr
60 sys65409:print"einfaches telefonbuch
70 [153]" 1 - neu anlegen
80 print" 2 - ausgabe
85 [134]n$(10),n(10)
90 [153]"bitte waehlen!
100 geta$:ifa$="1"then200
102 ifa$="2"then300
104 goto100
200 print"[147]neu anlegen
202 [153]"bitte geben sie von zehn personen den
204 print"vornamen und eine telefonnummer, die
206 [153]"nur aus ziffern bestehen darf, ein!
210 fori=1to10
212 print"eintrag #"i
214 input"name ";n$(i)
216 input"nummer ";n(i)
218 next
220 print"daten werden gespeichert!
222 [159]1,8,15,"s:telefonbuch":[160]1
224 [159]2,8,2,"telefonbuch,s,w
226 sys40704(n$(1),10)
228 sys40704(n(1),10)
230 close2:run60
300 print"[147]telefonbuch wird geladen!
302 [159]2,8,2,"telefonbuch,s,r
304 sys40818(n$(1),10)
306 sys40818(n(1),10)
308 close2
310 fori=1to10
312 print"eintrag #"i
314 print"name "n$(i)
316 print"nummer"n(i)
318 print" - taste -[145][145]
320 [146]198,1:[151]198,0
324 [130]
326 [138]60